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STARDORIV - Driver read routines for STASYSGEN. ST by a: iat 04:5 AX/VMS Macro v04-00 Page 1 
v04-000 4-SEP- =138¢ 90:96:39 Yeoors sre STARDDRIV.MAR; 1 . (1) 
0 1 TITL 4 TARDDRIV = Driver read routines for STASYSGEN, STACONFIG 
0090 é IDENT *vOee000" z 
$609 4 
0000 5 : euspnuaneneenenesesnenenetenbesnannenonsaonsonqasenensneseesoceeeeserenescns 
3* © 
4464 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
000 8 ;* DIGITAL EQUIPMENT EORPORATION, - MAYNARD. MASSACHUSETTS. * 
48 10 bs ALL RIGHTS RESERVED. . 
Py ® 
0000 11 ;* THIS SOFTWARE st FURNISHED UNDER A LICENSE AND MAY BE USED AND copiee * 
44 \¢ 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
00 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4464 1 :* TRANSFERRED. * 
: * 
0000 18 ;* THE oh arty IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND OULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44464 $9 :* CORPORATION. * 
bY ® 
0000 22 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 23 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 3 * 
0000 25 3* * 
464 $8 ; cneseonuadenenasiensewectanenkesersnesecensesieneesentnetenonsenesesnncennss 
0000 28° 
0000 $3 3+ 
sit 3 3 FACILITY: STANDALONE SYSGEN, STANDALONE CONFIGURE 
444 3 : ABSTRACT: READS DRIVERS INTO MEMORY. 
9000 34 ; ENVIRONMENT: USER, EXEC, AND KERNEL MODE 
9444 38 > AUTHOR: STEVE BECKHARDT, CREATION DATE: 18-SEP-1979 
0000 38 ; MODIFIED BY: 
0000 39 ; 
0000 40 ; v03-003 poneery Kathleen D. Morse 10-Nov-1983 
0000 41; Make file header buffer fall on word boundry instead 
44 2g E of a byte boundry, so that STASYSGEN works on MicroVAX I. 
9000 44 ; v03-002 wmc0001 Wayne Cardoza 09-Aug-1983 
44 $2 3 Make it handle non-contiguous files. 
0000 47: v03-001 MSHO001 Maryann Hinden 07-Jul-1983 
0000 48 ; 
0000 49 ; 


Move to separate module. 
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STARDORIV - Driver read routines for STASYSGEN, ST 16-SEP-1984 :04:59 VAX/VMS Macro v04-00 P 
[wos DECLARATIONS rates 9 90: 96577 BOOTS. SRCJSTARDDRIV.MAR; 1 st (3) 
$8 5 ; -SBTTL DECLARATIONS 
00 : INCLUDE FILES: 
000 54; 
0000 5 
0000 8 3 
0000 3 MACROS: 
0000 8 ; 
0000 59 
0000 60 ; 
0000 61 ; EQUATED SYMBOLS: 
4 66 3 
0000000D $000 14 CR = “XD ASCII i t 
= ; carriage return 
0000000A 0000 65 LF = “XA : ASCII Line feed 
0000 66 
0000 67; 
0000 68 ; OWN STORAGE: 
0000 69 ; 
0000 70 
eae 08 4 -PSECT BOOSSYSGEN,WRT,WORD 
00000200 8958 75 FILHDR: .BLKB 512 ; Buffer for file header 
00000400 s+ ei IXFHDR: .BLKB 512 ; Buffer for index file header 
-_— 0400 77 RTRVPTR: :; Buffer for 128 retrieval pointer 
00000600 ot rs -BLKB 512 
0600 80 RTRVLEN: ; Length of retreival pointers 
00000604 pene HI -BLKL 1 
0604 83 RTRVDESC: ; Descriptor for retrieval pointer buffer 
00000200 0604 84 -LONG 512 
00000400' pene ADDRESS RTRVPTR 
060C 87 STATBLK: 3 Statistics block 
00000610 060C 88 -BLKL 1 ; LBN of first block of file 
00000614 pei? 3 -BLKL 1 : Size of file in blocks 
0614 91 IOSTBLK: ; 1/0 status block 
0000061C Rete 4G -BLKL 2 
061C 94 FILNAM_DSC: ; File name descriptor 
00000000 061C 9 -LONG 0 : Size (in bytes) 
00000625 ' pe ? 38 ADDRESS FILNAMBFR ; Address of file name 
0624 98 FILNAMBFRLF: 3 Line feed before file name buffer 
OA 0624 4G ASCII <LF> ; 
be 5 100 FILNAMBFR: : File name buffer 
00000635 38 : 133 -BLKB 16 
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| STARDDRIV - Driver read routines for STASYSGEN, ST 16-SEP-1984 00:04:59 VAX/VMS Macro v04-00 P 
_ v04-000 IOGENSREADDRIV - Read in Driver 46-SEP-1984 90306537 tours, sre STARDDRIV.MAR; 1 a 


| : 104 .SBTTL IOGENSREADDRIV = Read in Driver 
° : $ 3 FUNCTIONAL DESCRIPTION: 
6 108 ; This routine reads the driver into pg by opening it 
? 5 19 $ with FILSOPENFILE and reading it with a Q10. 
| 38 ; ii ; CALLING SEQUENCE: 
0635 118 s BSBW IOGENSREADDRIV 
0635 114 ; 
6 : 115 ; INPUT PARAMETERS: 
6 116 ; 
0635 117 ; RO Address of filename counted string 
0635 118; R3 Address of location to store channel number 
tt 119 ; RG Address of two longword array to return address range 
be : 139 ; created by SEXPREG. 
bea 1$¢ ; IMPLICIT INPUTS: 
0635 123; 
0635 Ise 3 None 
0635 125; 
0635 126 ; OUTPUT PARAMETERS: 
0635 127; 
0635 128; RO Completion code 
pos? 1¢ $ 
0635 130 ; IMPLICIT OUTPUTS: 
0635 131; 
0635 13 3 None 
0635 133; 
bes? 13 3; COMPLETION CODES 
tt 136 3 Those returned by FILSOPENFILE, SEXPREG, and $010 
0635 138 ; SIDE EFFECTS: 
0635 139; 
0635 140; RO - R2 are used as scratch registers 
0635 141; 
0635 | i-- 
0635 14 
0635 144 IOGENSREADDRIV:: 
51 0 9A 0635 145 MOVZBL (RO)+,R1 : Get Length of filename 
09 51 4D 0638 146 PL R1,49 3 Longer than 9 characters? 
06 15 8638 147 BLEQ 10 ; No 
50 0000°8F 3C 30 D 148 MOVZWL #SSS$_BADF ILENAME ,RO ; Yes, error 
oS 
D4 AF 51 Of C1 064 151 10$: ADDL3 = #4,R1 FLLNAM_DSC 3 Store filename size + 4 
C BB 0648 138 PUSHR ancRe R3,R4,R5> : Save registers. 
D6 AF 60 51 28 Q64A~ 15 MOVC3 R1,(ROS,FILNAMBFR ; Copy filename into local buffer 
63 4558452E ef DO 064F 154 MOVL #7Ay -EXE/ (3) : Append filetype 
C BA 0656 155 POPR #*M<R2,R3,R4,R5> ; Restore registers 
0658 156 
65 157 ; , 
65 158 ; Open the file 
65 159 ; 
065 160 


3) 


- 
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-v04-000 IOGENSREADDRIV = Read in Driver EP=-1984 BOOTS.SRCJSTARDDRIV.MAR; 1 (3) 
| AJ AF O7F 161 PUSHAQ RTRVDESC : Buffer for retrieval pointers 
A2 AF OF 196 PUSHAB RTRVLEN ; Get length of retrieval pointer buffer use 
| 52 AB AF ce 16 MOVAQ STAT BLK, R2 ; Get address of stat stics block 
F 164 PUSHAQ (R2) ; Push address of statistics block 
F998 CF OOF 165 PUSHAB FILHD ; Push address of file header buffer 
FB94 CF OOF 166 PUSHAB IXFH DR ; Push address of index file hdr bfr 
AD AF 7F 16 PUSHAQ an osc ; Push address of filename descriptor 
; 3F 198 PUSHAW (R5) ; Push address of ioc. to store channel 
00000000 "EF 0 4 1 CALLS #7, of ALSOPENF ILE ; Open the file 
of E 170 BLBC RO,20 3: Error 
84 AF B2 AF Di 4 CPL RTRVLEN, RTRVDESC : Did we overflow buffer 
50  0000000'EF 8 138 MOVL SS$_FILNOTCNTG,RO 
F974" 30 174 208: BSBW PUTERROR ; Output error message 
50 8D AF bY 175 MOVL FILNAM_DSC ; Get Length of filename 
90 AF4O OD 1% MOVE « #CR, FICNAMBFREROJ ; Put CR at end of buffer 
8D AF4O 94, 17 CLRB FILNAMBFR*1CROJ : Make it ASCIZ 
. 178 LRQ ) ; No input buffer 
86 AF OF 179 PUSHAB jt AMBF RLF ; Push address of filename 
OO000000"EF 03 FB 180 CALLS #3,BOOSREADPROMPT ; Output driver name 
50 4 181 CLAL RO ; Status 
05 136 RSB 
OOEO 8F 6B H 40$: PUSHR #*M<R5,R6,R7> 
196 ; Expand the program region to create a place to read driver into 
188 . 
189 SEXPREG_S PAGCNT = qaner ea # of pages 
190 RETADR = (R4 ; Return address array 
4¢ 50 +€9 131 BLBC RO,90$ : Error 
198 ; ; 
194 ; Read in the driver 
es 
52 FF3B CF FD 8F 78 197 SHL #-3, RTRVLEN,R2 3; Number of egtrvovel pointers 
55 FD36 CF 9E 198 MOVAB RTRVPTR,R ; Start of pointe 
56 64 £00 199 MOVL (R4) ,R6 ; Start of Sr iver "butter 
7 8 200 50$: mova (R5)+,R0 ; RO = # of blocks, R1 = LBN, 
57 50 00000200 8F C5 201 MULL3) #512,R0,R7 ; Convert blocks to bytes 
88 $Q10W_S CHAN = (R3),- ; Channel number 
0 FUNC = #10$ READLBLK, - 3 Function 
Oe 10SB = JOSTBLK, : 1/0 stetue block 
5 P1 = (R6),- ; Buffer address 
06 Ps = R7,- 3 orte count 
07 P35 = R1 ; LON 
OE 50 §? 08 BLBC RO,90$ 3; Error 
50 FFI cr c 09 MOVZ2WL IOSTBLK,RO : Final status 
06 50 €9 10 BLBC RO,90$ 3 or 
56 57 £9 11 ADDL R7,R6 ; New buffer 
(3 $2. «OF \¢ SOBGTR R2,508 
OOEO 8F BA 14 90$: POPR #*M<R5,R6,R7> 
05 15 RSB 
13 
1 .END 
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Symbo r % 99:8 ST ? a (3) 


L table 4=SEP-1984 6:17 (CBOOTS.SRCISTARDDRIV.MAR; 1 
$$T1 = 00000001 
BOOSREADPROMPT eeerere x 01 
R = 00000000 


F ILSOPENF ILE eererere x 


RTRVPTR 

SS$_BADFILENAME teeeeree x 
SSS_FILNOTCNTG teeeeer = § Xx 
TATBLK 0000060C R 

SYSSEXPREG eeereree GX 

SYS$Q10W 


eenreeree GX 


1 

FILHDR 0 R 1 

FILNAMBFR itt g R 1 

F ILNAMBF RLF 0000624 R 1 

ILNAM_DSC 000061C R 1 

10$_READLBLK eereeree xX 1 

LOGENSREADDRIV 444 ot RG 1 

IOSTBLK 0000614 R 1 

IXFHDOR ats 00 R 01 
LF = QO000000A 

PUTERROR geeeeenre x 4 

RTRVDESC 00000604 R 1 

RTRVLEN 00000600 R 01 

00000400 R 4 

01 

01 

01 

01 


PSECT name ‘Allocation PSECT No. Attributes 

- ABS. 00000000 < 0.) 00 ¢ OO.) NOPIC USR CON ABS~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

BOOSSYSGEN 00000710 ¢« 1808.) 01 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC WORD 
Geeeoeooosoee seeeocossoes=s + 


Geocceceecceecooscescosor$ 


Phase Page faults CPU Time Elapsed Time 
Initialization 29 90:00:00 .10 00:00:00.71 
Command processing 110 00:00:00.66 bs SY 
pets] esate sot 5 SRE SY BREE 9 
able sor :00:00. :00:00. 
Pass 54 80:00:00. 44 OO 8004 200 
Symbol table output 3 3:98: 8-95 88 #80: 80-83 
Psect synopsis output 1 0:00:00.01 0:00:00.01 
Cross-reference output 9 0:00: 3-98 es Be 
Assembler run totals 33 00:00:02.30 0:00:07.98 


The working get Limit was 1050 pages. 

4178 bytes (9 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 22 non-local and 5 local symbols. 
217 source Lines were read in Pass 1, produc ing object records in Pass 2. 

6 pages of virtual memory were used to define 6 macros. 
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VAK-11 Macro Run Statistics 4-SEP=1984 23:06:17 ([BOOTS.SRCISTARDDRIV.MAR; 1 (3) 


Geweoeoeeceseoesoesoeoeocoecs} 


! Macro Library statistics ! 


eee Ss 


Macro Library name Macros defined 
3 2 SDUA28: Bopts 08 e00Ts 8; 1 8 
_d255SDUA28: ave-08} LIB.MLB;1 

$255SDUA28: (SYSLIBISTARLET.MLB;2 6 
TOTALS (all Libraries) 6 


70 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:STARDDRIV/OBJ=0BJ$:STARDDRIV MSRC$:STARDDRIV/UPDATE=(ENHS$: STARDDRIV) +EXECML$/L1IB+L1IB$:B00TS.MLB/LIB 
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